COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WHOVID"
C00003 ENDMK
C⊗;
BEGIN "WHOVID"
INTEGER I,J;
FOR I←'30 STEP 1 UNTIL '120 DO
 IF (J←CALL(I LSH 18,"VDSMAP") LAND '17) ≠ 0 THEN
 		OUTSTR("LINE "&CVOS(I)&" CHAN "&CVOS('40+J)&'15&'12);
END;